home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / rtrv / shared.dir / 00361_PHOTO+1FrameScore.ls < prev    next >
Encoding:
Text File  |  1995-05-10  |  3.9 KB  |  152 lines
  1. on enterFrame
  2.   global gtpoem, gppoem, gtbio, gpbio, gcurrentnumber, gblenddraw, gbiophotonumber, gbiophoto, greq, gphoto
  3.   if gphoto = 0 then
  4.     makepuppet(35, "DUMMY")
  5.     makepuppet(36, "DUMMY")
  6.     makepuppet(37, "DUMMY")
  7.     updateStage()
  8.     puppetPalette(the number of cast string(getphoto("P")) - 1)
  9.     makepuppet(36, getphoto("P"), 100, getphoto("H"), getphoto("V"), 0)
  10.     if greq = "E" then
  11.       makepuppet(37, getphoto("EE"), 100, getphoto("EEH"), getphoto("EEV"))
  12.     else
  13.       makepuppet(37, getphoto("E"), 100, getphoto("EH"), getphoto("EV"))
  14.     end if
  15.     set gphoto to 1
  16.     go(the frame + 1)
  17.   end if
  18. end
  19.  
  20. on exitFrame
  21.   go(the frame)
  22. end
  23.  
  24. on mouseDown
  25.   global galreadyshownbutton, greqcode, greqsprite, greq, gblend.47, gblend.46, gppoem, gcurrentnumber
  26.   if soundBusy(2) then
  27.     sound stop 2
  28.     set gpleasespeak to EMPTY
  29.   else
  30.     nothing()
  31.   end if
  32.   set greqcode to 0
  33.   set greqsprite to clickOn()
  34.   if (greqsprite = 15) or (greqsprite = 16) then
  35.     repeat while stillDown()
  36.       if galreadyshownbutton then
  37.         if getaProp(gppoem, gcurrentnumber + 1) = EMPTY then
  38.           set gblend.47 to 0
  39.         else
  40.           set gblend.47 to 100
  41.         end if
  42.         if (getpoemname(gtpoem, gcurrentnumber, 5) = EMPTY) and (greqsprite = 6) then
  43.           set gblend.46 to 0
  44.         else
  45.           set gblend.46 to 100
  46.         end if
  47.         showfloat(greqsprite)
  48.         set galreadyshownbutton to 0
  49.       end if
  50.     end repeat
  51.     if rollOver(45) then
  52.       set greqcode to 45
  53.     else
  54.       if rollOver(46) then
  55.         set greqcode to 46
  56.       else
  57.         if rollOver(47) then
  58.           set greqcode to 47
  59.         end if
  60.       end if
  61.     end if
  62.   else
  63.     nothing()
  64.   end if
  65. end
  66.  
  67. on mouseUp
  68.   global greqcode, greqsprite, gextension, gpleasespeak, gtpoem, gcurrentnumber, greq
  69.   if greqcode <> 0 then
  70.     set the castNum of sprite greqcode to cast ("H-CLOSE" & string(gextension))
  71.     updateStage()
  72.     waitticks(15)
  73.     set the castNum of sprite greqcode to cast ("OPEN" & string(gextension))
  74.     updateStage()
  75.     waitticks(15)
  76.     if (greqcode = 45) and (greqsprite = 15) then
  77.       sound playFile 2, getpoemname(gtpoem, gcurrentnumber, 1, "N")
  78.       set greqcode to 0
  79.       set greqsprite to 0
  80.     end if
  81.     if (greqcode = 45) and (greqsprite = 16) then
  82.       sound playFile 2, getpoemname(gtpoem, gcurrentnumber, 2, "N")
  83.       set greqcode to 0
  84.       set greqsprite to 0
  85.     end if
  86.     if (greqcode = 46) and (greqsprite = 15) then
  87.       hidefloat()
  88.       set greq to "J"
  89.       set greqcode to 0
  90.       set greqsprite to 0
  91.       makepuppet(35, "DUMMY")
  92.       makepuppet(36, "DUMMY")
  93.       makepuppet(37, "DUMMY")
  94.       updateStage()
  95.       puppetPalette(0)
  96.       outcursor()
  97.       outbio()
  98.       go("EX")
  99.     end if
  100.     if (greqcode = 46) and (greqsprite = 16) and (getpoemname(gtpoem, gcurrentnumber, 5) <> EMPTY) then
  101.       hidefloat()
  102.       set greq to "E"
  103.       set greqcode to 0
  104.       set greqsprite to 0
  105.       makepuppet(35, "DUMMY")
  106.       makepuppet(36, "DUMMY")
  107.       makepuppet(37, "DUMMY")
  108.       updateStage()
  109.       puppetPalette(0)
  110.       outcursor()
  111.       outbio()
  112.       go("EX")
  113.     end if
  114.     if (greqcode = 47) and (greqsprite = 15) then
  115.       hidefloat()
  116.       if getaProp(gppoem, gcurrentnumber + 1) = EMPTY then
  117.         nothing()
  118.       else
  119.         set greq to "J"
  120.         killpuppet(2)
  121.         set greqcode to 0
  122.         set greqsprite to 0
  123.         outcursor()
  124.         go("PHOTO")
  125.       end if
  126.     end if
  127.     if (greqcode = 47) and (greqsprite = 16) then
  128.       hidefloat()
  129.       if getaProp(gppoem, gcurrentnumber + 1) = EMPTY then
  130.         nothing()
  131.       else
  132.         set greq to "E"
  133.         killpuppet(2)
  134.         set greqcode to 0
  135.         set greqsprite to 0
  136.         outcursor()
  137.         go("PHOTO")
  138.       end if
  139.     end if
  140.   else
  141.     hidefloat()
  142.     set the blend of sprite 2 to 100
  143.     puppetPalette(0)
  144.     makepuppet(35, "DUMMY")
  145.     makepuppet(36, "DUMMY")
  146.     makepuppet(37, "DUMMY")
  147.     go(the frame + 2)
  148.     go("NEW")
  149.   end if
  150.   hidefloat()
  151. end
  152.